Sub 테스트결과()

    Range("B3").Value = WorksheetFunction.RandBetween(0, 100)
    
    Range("C3").Value = IIf(Range("B3").Value >= 70, "합격", "불합격")
        
End Sub
